home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / dev / misc / gms_dev.lha / GMSDev / Source / E / Screens / FadingDemo.e < prev    next >
Text File  |  1997-12-05  |  2KB  |  62 lines
  1. /* Name:      Fade Demo
  2. ** Author:    Paul Manias
  3. ** Copyright: DreamWorld Productions (c) 1996-1997.  Freely distributable.
  4. */
  5.  
  6. MODULE 'dpkernel','dpkernel/dpkernel','graphics/pictures','files/files'
  7. MODULE 'screens','system/register','system/modules','input/joydata'
  8. MODULE 'graphics/screens','graphics/blitter'
  9.  
  10. PROC main()
  11.  DEF fstate    = NIL :LONG,
  12.      screen    = NIL :PTR TO screen,
  13.      pic       = NIL :PTR TO picture,
  14.      scrmodule = NIL :PTR TO module,
  15.      picfile   :filename
  16.  
  17.  picfile := [ ID_FILENAME, 'GMS:demos/data/PIC.Green']:filename
  18.  
  19.  IF dpkbase := OpenLibrary('GMS:libs/dpkernel.library',0)
  20.   IF (scrmodule := Init([TAGS_MODULE,NIL,
  21.       MODA_NUMBER,    MOD_SCREENS,
  22.       MODA_TABLETYPE, JMP_AMIGAE,
  23.       TAGEND], NIL))
  24.  
  25.    scrbase := scrmodule.modbase
  26.  
  27.    IF (pic := Load(picfile, ID_PICTURE))
  28.       screen := Get(ID_SCREEN)
  29.       CopyStructure(pic,screen)
  30.       screen.memptr1 := pic.bitmap.data
  31.       screen.palette := NIL
  32.       screen.attrib  := BLANKPALETTE
  33.  
  34.       IF (screen := Init(screen,NIL))
  35.          Display(screen);
  36.  
  37.          REPEAT
  38.            WaitAVBL()
  39.            fstate := ColourToPalette(screen,fstate,2,0,screen.bitmap.amtcolours,pic.palette+8,$000000);
  40.          UNTIL (fstate != NIL)
  41.  
  42.          REPEAT
  43.            WaitAVBL()
  44.            fstate := PaletteToColour(screen,fstate,2,0,screen.bitmap.amtcolours,pic.palette+8,$a5f343)
  45.          UNTIL (fstate != NIL)
  46.  
  47.          REPEAT
  48.            WaitAVBL()
  49.            fstate := ColourMorph(screen,fstate,2,0,screen.bitmap.amtcolours,$a5f343,$000000);
  50.          UNTIL (fstate != NIL)
  51.  
  52.       Free(screen)
  53.       ENDIF
  54.    Free(pic)
  55.    ENDIF
  56.    Free(scrmodule)
  57.   ENDIF
  58.  CloseDPK()
  59.  ENDIF
  60. ENDPROC
  61.  
  62.